% The Computer Modern Symbols family (by D. E. Knuth, 1979--1985)

font_coding_scheme:="TeX math symbols";
mode_setup; font_setup;

% input calu;	% upper case calligraphic alphabet

font_slant slant;
font_xheight x_height#;
font_quad 18u# if not monospace:+4letter_fit# fi;
% (The spacing is zero so that \TeX\ always adds the italic correction.)
% (The calling file should give the other math symbol font parameters.)

slant:=mono_charic#:=0;	% the remaining characters will not be slanted
currenttransform:=identity yscaled aspect_ratio scaled granularity;
input symbol	% the symbols

if not monospace:
 skewchar=oct"060"; skew#=.5u#;
 % here I should enter the skews, cf. CALU.MF[mf,sys]/29p
fi;

if known Xerox_world: font_family font_identifier;
 coding_scheme font_coding_scheme;
 font_face_byte 254-2 round designsize; fi % Dover code for CM; 154==AM
tracingstats:=10; % temporary
end.